home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 159 / 159.d81 / b.star dump demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  76 lines
  1. 10 poke55,0:poke56,56:clr
  2. 12 pc$="12":pc$=pc$+pc$
  3. 14 dv=peek(186):ifdv<8thendv=8
  4. 16 poke53371,0
  5. 20 ml=49152:pd=52736:pc=52992:cm=828
  6. 40 sys57812"dump font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  7. 50 sys57812"updriver",dv,0:poke780,0:poke781,0:poke782,206:sys65493
  8. 60 sys57812"updcodes",dv,0:poke780,0:poke781,0:poke782,207:sys65493
  9. 70 gosub52000
  10. 120 :
  11. 140 print"[147]";:poke53280,6:poke53281,1:poke53272,31
  12. 150 bk$="@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  13. 152 rv$="                                      "
  14. 160 fori=1to24:printbk$;:next:printleft$(bk$,39)""
  15. 162 poke2023,0:poke2023+54272,6
  16. 164 fori=217to242:pokei,peek(i)or128:next
  17. 166 poke214,2:print:fori=1to3:printtab(8)left$(rv$,25):next
  18. 170 printtab(11)"[145][145][211] [212] [193] [210]    [196] [213] [205] [208]"
  19. 180 poke214,8:print
  20. 190 fori=1to9:printtab(8)left$(rv$,25):next
  21. 192 poke214,9:print
  22. 200 printtab(12)"(1) single dump
  23. 210 [153][163]12)"(2) double dump"
  24. 212 [153][163]12)"(3) triple dump"
  25. 214 [153][163]12)"(4) quit
  26. 230 syscm,1024,64*256,1000:syscm,55296,68*256,1000
  27. 260 poke198,0
  28. 262 geta$:ifa$<"1"ora$>"4"then262
  29. 270 onval(a$)goto280,290,300,40000
  30. 280 f$="single dump c000":tb=26:goto310
  31. 290 f$="double dump c000":tb=13:goto310
  32. 300 f$="triple dump c000":tb=0
  33. 310 print"[147]"
  34. 312 poke214,6:print:fori=1to8:printtab(8)left$(rv$,25):next
  35. 320 poke214,8:print:printtab(16)"loading ":printtab(12)""f$
  36. 330 sys57812f$,dv,0:poke780,0:poke781,0:poke782,192:sys65493
  37. 340 poke214,7:print
  38. 350 printtab(9)" press a key to print
  39. 352 [153][163]9)" the previous screen.
  40. 354 printtab(9)" notice how star dump "
  41. 356 printtab(9)" can print screens in
  42. 358 [153][163]9)" memory even if they
  43. 360 printtab(9)" aren't showing.
  44. 370 [151]198,0
  45. 372 [161]a$:[139]a$[178]""[167]372
  46. 380 [158]ml,56[172]256,64[172]256,pd,pc:[158]ml[170]3,0,39,0,24,tb
  47. 382 [151]186,dv
  48. 390 [158]cm,64[172]256,1024,1000:[158]cm,68[172]256,55296,1000
  49. 400 [137]260
  50. 10000 d[178][194](186):n$[178]"b.star dump demo":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  51. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  52. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  53. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  54. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  55. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  56. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  57. 40060 [130]:[142]
  58. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  59. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  60. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  61. 50004 [142]
  62. 52000 a[178]0:i[178]0:ad[178]828
  63. 52002 [135]a:[139]a[179][177][171]1[167][151]ad[170]i,a:i[178]i[170]1:[137]52002
  64. 52004 [142]
  65. 52008 [131] 032,253,174,032,138,173,032
  66. 52010 [131] 247,183,132,176,133,177,032
  67. 52020 [131] 253,174,032,138,173,032,247
  68. 52030 [131] 183,132,178,133,179,032,253
  69. 52040 [131] 174,032,138,173,032,247,183
  70. 52050 [131] 073,255,133,181,152,073,255
  71. 52060 [131] 133,180,230,180,208,002,230
  72. 52070 [131] 181,160,000,177,176,145,178
  73. 52080 [131] 200,208,004,230,177,230,179
  74. 52090 [131] 230,180,208,241,230,181,208
  75. 52100 [131] 237,096,081,-1
  76.